home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Collections: Franz PD
/
Franz PD Disk #115 (1991-03)(Amiga User Group Deutschland e.V.).zip
/
Franz PD Disk #115 (1991-03)(Amiga User Group Deutschland e.V.).adf
/
AE
/
AE.mod
< prev
next >
Wrap
Text File
|
1989-07-03
|
771b
|
36 lines
(* AE C 1990 by Matthias Gutt, Kantstr. 16, W-2120 Lüneburg
Das Programm AE rechnet eine astronomische Einheit(= 149,5 Mio. km
in Kilometer um. *)
MODULE AE;
FROM SYSTEM IMPORT ADR;
FROM RealInOut IMPORT ReadReal,WriteReal;
FROM InOut IMPORT WriteLn,WriteString;
VAR
Eingabe,AE,Ausgabe: REAL;
BEGIN
WriteLn;
WriteString("AE - Copyright 1990 by Matthias Gutt * Kantstr.16 * W-2120");
WriteString("Lüneburg ");
WriteLn;
WriteString("Geben Sie bitte die Anzahl Astronomischer Einheiten ein !");
WriteLn;
WriteString("AE: ");ReadReal(Eingabe);
WriteLn;
AE:=Eingabe*149.5;
Ausgabe:=AE;
WriteString ("Ergebnis: "); WriteReal(Ausgabe,3,4); WriteString ("Mio. km.");
WriteLn;
END AE.